home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.2r / card_8474.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  70 lines
  1. -- card: 8474 from stack: in.2r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2612
  5. -- name: ImportPict
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=225 top=242 right=292 bottom=284
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 27056 / 27056
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Try This
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then pass mouseup
  23.   put "This will create a new stack for your pictures"
  24.   set lockmessages to true
  25.   put the long name of this stack into returnHere
  26.   put "Select the file you want to import pictures from..."
  27.   put filename()into getFromThis
  28.   if getFromThis is empty then
  29.     oops
  30.   else
  31.     put "Please name your new picture stack"
  32.     domenu "New Stack..."
  33.     put "Please wait..."
  34.     importpict(getFromThis)
  35.   end if
  36.   hide message window
  37.   set lockmessages to false
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part contents for background part 13
  43. ----- text -----
  44. 5
  45.  
  46. -- part contents for background part 2
  47. ----- text -----
  48. ImportPict
  49.  
  50. -- part contents for background part 3
  51. ----- text -----
  52.  
  53. This will import all the PICTs from a file and put them into a stack, one picture per card.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61. Thanks to:
  62. Andy Hertzfeld (who?)
  63.  
  64. -- part contents for background part 10
  65. ----- text -----
  66. Syntax:
  67.  
  68. ImportPict <"filePathName">
  69.  
  70.